home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh4x
/
sh49a.d64
/
le president
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
36KB
|
917 lines
0 POKE53280,9:POKE53281,9:IFPEEK(182)=0THENPOKE182,1:LOAD"ZEICHEN",8,1
1 POKE53272,48:POKE56576,0:POKE648,204:GOSUB100
5 A=1023:RESTORE:AF=52264
6 READC
7 IFC=-1THENRETURN
9 FORY=1TO4:POKE(A+Y),C:NEXTY:A=A+4
10 GOTO6
12 DATA1,1,1,0,100,100,0,0,1,0,0,1,1,2,10,20,100,0,50,1,0,0,0,0,1,1,2,5,5,25,0
13 DATA 0,100,100,0,0,20,-1
19 FORI=1TOZZ
20 A(I)=2800:SG(I)=2000:PO(I)=250:EW(I)=50000:JA=2010:EG(I)=26000
21 EB(I)=24000:G(I)=35000:UP(I)=1200:LB(I)=20000:PI(I)=450:LH(I)=600
46 GV(I)=25000:GB(I)=24738:BL(I)=1535:GL(I)=2465:LA(I)=50000:GK(I)=25000
47 EV(I)=2000:GA(I)=0:AL(I)=0:AC(I)=500:NEXT
50 FORX=1TO10:POKE(1379+X),2:NEXT:RETURN
100 PRINT"[144][147][215]IEVIEL [211]PIELER (1-4) ";:INPUTZZ
122 IF ZZ<1 ORZZ>4 THEN 100
123 PRINT"[147]":FORI=1TOZZ
124 PRINT"[206]AME VON [211]PIELER";I;SPC(61):INPUTN$(I)
125 A=LEN(N$(I)):IFA>12THENPRINT"[145][145][145][145][145][145]":GOTO124
127 NEXT:GOSUB5:GOSUB19:GOSUB20950:GOSUB50000:GOSUB50100:GOTO20000
500 GOSUB19000:SP=52865:JMP=1:A=7:B=240:POKESP,62:G(I)=(INT(G(I)))
510 PRINTSPC(11)"[199]ELD :";G(I)"[200][198]":PRINTSPC(11)"[197]INWOHNER :";EW(I)
540 PRINTSPC(11)"[193]USL^NDER :";AL(I):PRINTSPC(11)"[204]ANDBESITZ :";LB(I)"[209][200][198]"
546 PRINTSPC(11)"BEBAUTES [204]AND :";BL(I)"[209][200][198]":PRINTSPC(11)"[194]AULAND :";GL(I)"[209][200][198]"
549 PRINTSPC(11)"[214]OLKSSTIMMUNG :";PEEK(1039+I)"%"
550 PRINTSPC(11)"[213]MWELTZUSTAND :";PEEK(1043+I)"%"
551 PRINTSPC(11)"[211][193][199]-[211]T^RKE :";PEEK(1151+I)"%"
560 PRINT"[197]NERGIE":PRINT"[202]USTIZ":PRINT"[212]OURISMUS":PRINT"[205]ILIT^R":PRINT"[201]NDUSTRIE"
610 PRINT"[204]ANDWIRTSCHAFT":PRINT"[193]USWERTUNG"
660 GOSUB 20100:IFJMP=7THEN50500
670 ON JMP GOSUB 999,1499,1999,2498,2999,3499:GOTO500
999 SP=52785:JMP=1
1000 GOSUB19000:PRINTSPC(10)"[199]ELD :";G(I)"[200][198]"
1002 A=10:POKESP,62:B=360:PRINTSPC(10)"[203]ERNKRAFTWERKE :";PEEK(1023+I)
1003 PRINTSPC(10)"[215]INDR^DER :";PEEK(1027+I)
1004 PRINTSPC(10)"[211]TAUD^MME :";PEEK(1031+I)
1005 PRINTSPC(10)"[197]NERGIEVORRAT :";EV(I)"[203][200][198]"
1006 PRINTSPC(10)"[197]NERGIEPRODUKTION:";EG(I)"[203][200][198]"
1007 PRINTSPC(10)"[197]NERGIE BEN\TIGT :";EB(I)"[203][200][198]"
1008 PRINTSPC(10)"[194]AULAND :";GL(I)"[209][200][198]"
1010 PRINT"[203]ERNKRAFTWERK KAUFEN - 3000 [200][198]":PRINT"[203]ERNKRAFTWERK VERKAUFEN"
1020 PRINT"[215]INDRAD KAUFEN - 2500 [200][198]":PRINT"[215]INDRAD VERKAUFEN"
1030 PRINT"[211]TAUDAMM KAUFEN - 1500 [200][198]":PRINT"[211]TAUDAMM VERKAUFEN"
1080 PRINT"[211]TROM ANBIETEN":PRINT"[211]TROM KAUFEN":PRINT"[211]TROMPREISE":PRINT"[200]AUPTMEN[184]"
1110 GOSUB 20100:IFJMP=10THENRETURN
1120 ONJMPGOSUB 19059,19088,19069,19098,19079,19108,19116,19127,19172:GOTO1000
1499 JMP=1:SP=52825
1500 GOSUB19000
1501 PRINTSPC(14)"[199]ELD :";G(I)"[200][198]":PRINTSPC(14)"[211]TEUERN :";PEEK(1083+I)"%"
1513 A=5:POKESP,62:B=160:PRINTSPC(14)"[199]EF^NGNISSE :";PEEK(1067+I)
1514 PRINTSPC(14)"[199]ESETZESH^RTE:";PEEK(1075+I)
1515 PRINTSPC(14)"[194]AULAND :";GL(I)"[209][200][198]"
1519 PRINT"[199]EF^NGNISS KAUFEN - 1500 [200][198]":PRINT"[211]TEUERN ^NDERN"
1522 PRINT"[199]ESETZESH^RTE":PRINT"[208]OLIZEI":PRINT"[200]AUPTMEN[184]"
1600 GOSUB20100:IFJMP=5THENRETURN
1619 IFJMP=4THEN19299
1620 ONJMPGOSUB19280,19260,19290:GOTO1500
1999 JMP=1:SP=52785
2000 GOSUB19000:PRINTSPC(11)"[199]ELD :";G(I)"[200][198]":POKESP,62:A=8:B=280
2010 PRINTSPC(11)"[200]OTELS :";PEEK(1071+I)
2012 PRINTSPC(11)"[198]REIZEITPARKS :";PEEK(1099+I)
2013 PRINTSPC(11)"[194]UNGALOWSIEDLUNGEN:";PEEK(1055+I)
2016 PRINTSPC(11)"[218]OLL";SPC(12)" :";PEEK(1079+I)"%"
2017 PRINTSPC(11)"[194]AULAND :";GL(I)"[209][200][198]"
2030 PRINT"[200]OTEL KAUFEN";SPC(12)"- 1000 [200][198]":PRINT"[200]OTEL VERKAUFEN"
2050 PRINT"[198]REIZEITPARK KAUFEN - 1250 [200][198]":PRINT"[198]REIZEITPARK VERKAUFEN"
2060 PRINT"[194]UNGALOWSIEDLUNG KAUFEN - 2500 [200][198]":PRINT"[194]UNGALOWSIEDLUNG VERKAUFEN"
2061 PRINT"[218]OLL":PRINT"[200]AUPTMEN[184]"
2080 GOSUB20100:IFJMP=8THENRETURN
2100 ONJMPGOSUB 19510,19515,19520,19525,19530,19535,19270:GOTO2000
2498 IFJA<2012THEN20060
2499 JMP=1:SP=52825
2500 GOSUB19000
2502 IF PEEK(1399+I)>100 THEN POKE(1399+I),100
2503 PRINTSPC(14)"[199]ELD :";G(I)"[200][198]":BB=0
2505 POKESP,62:A=7:B=240:PRINTSPC(14)"[198]LUGZEUGE :";PEEK(1309+I)
2506 PRINTSPC(14)"[208]ANZER :";PEEK(1299+I):PRINTSPC(14)"[201]NFANTERIE :";PEEK(1319+I)
2508 PRINTSPC(14)"[203]ASERNEN :";PEEK(1379+I):PRINTSPC(14)"[193]USBILDUNG :";PEEK(1399+I)"%"
2510 PRINTSPC(14)"[194]AULAND :";GL(I)"[209][200][198]"
2520 PRINT"[198]LUGZEUG KAUFEN - 800 [200][198]"
2530 PRINT"[208]ANZER KAUFEN - 500 [200][198]":PRINT"[201]NFANTERIE - 300 [200][198]"
2555 PRINT"[203]ASERNE KAUFEN - 500 [200][198]":PRINT"[201]NFORMATIONEN"
2558 PRINT"[203]RIEG":PRINT"[200]AUPTMEN[184]"
2570 GOSUB 20100:IFJMP=7THENRETURN
2571 IFJMP=6THEN19650
2573 Y=JMP
2590 ONJMP GOSUB19600,19600,19600,42500,37000:IFJM=11THEN2499
2593 GOTO2500
2999 SP=52825:JMP=1
3000 GOSUB19000:PRINTSPC(12)"[199]ELD :";G(I)"[200][198]"
3020 POKESP,62:A=7:B=240:PRINTSPC(12)"[199]ROSSE [198]ABRIKEN:";PEEK(1119+I)
3024 PRINTSPC(12)"[203]LEINE [198]ABRIKEN:";PEEK(1123+I)
3025 PRINTSPC(12)"[208]RODUKTION :";PI(I)"[201][200][198]"
3026 PRINTSPC(12)"[204]AGERH^USER :";PEEK(1127+I)
3027 PRINTSPC(12)"[204]AGERKAPAZIT^T :";LH(I)"[201][200][198]"
3028 PRINTSPC(12)"[194]AULAND :";GL(I)"[209][200][198]"
3060 PRINT"[198]ABRIK KAUFEN - 3000 [200][198]":PRINT"[198]ABRIK VERKAUFEN"
3070 PRINT"[203]L. [198]ABRIK KAUFEN - 1500 [200][198]":PRINT"[203]L. [198]ABRIK VERKAUFEN"
3100 PRINT"[204]AGERHAUS KAUFEN - 1200 [200][198]":PRINT"[204]AGERHAUS VERKAUFEN"
3120 PRINT"[200]AUPTMEN[184]"
3210 GOSUB 20100:IFJMP=7THENRETURN
3230 ON JMP GOSUB 14999,15018,15009,15028,15039,15048:GOTO3000
3499 JMP=1:SP=52825
3500 GOSUB19000:PRINTSPC(9)"[199]ELD";SPC(13)":";G(I)"[200][198]"
3540 POKESP,62:A=9:B=320:PRINTSPC(9)"[199]ETREIDEM[184]HLEN :";PEEK(1139+I)
3541 PRINTSPC(9)"[205][184]HLENKAPAZIT^T :";GK(I)"[199][200][198]"
3550 PRINTSPC(9)"[204]AGERH^USER :";PEEK(1135+I)
3551 IFLA(I)<1THENLA(I)=0
3552 PRINTSPC(9)"[204]AGERKAPAZIT^T :";LA(I)"[199][200][198]"
3553 PRINTSPC(9)"[193]CKERLAND :";AC(I)"[209][200][198]"
3554 PRINTSPC(9)"GEEIGNETES [204]AND :";GL(I)"[209][200][198]"
3560 PRINTSPC(9)"[199]ETREIDEVORRAT :";GV(I)"[199][200][198]"
3570 PRINTSPC(9)"[199]ETREIDE BEN\TIGT:";GB(I)"[199][200][198]"
3571 PRINTSPC(9)"[211]AATGUT BEN\TIGT :";SG(I)"[199][200][198]"
3600 PRINT"[199]ETREIDEFELDER ANLEGEN":PRINT"[204]AGERHAUS KAUFEN - 500
3630 [153]"(null)AGERHAUS VERKAUFEN":[153]"CHR$ETREIDEMFREHLE KAUFEN - 1100 LEFT$ASC"
3650 [153]"CHR$ETREIDEMFREHLE VERKAUFEN":[153]"CHR$ETREIDE ANBIETEN":[153]"CHR$ETREIDE KAUFEN"
3671 [153]"(null)REISE ANSCHAUEN":[153]"LEFT$AUPTMENFRE"
3700 [141] 20100:[139]JMP[178]9[167][142]
3720 [145] JMP [141] 15500,15601,15608,15620,15627,15690,15750,15850:[137]3500
14999 A[178]1119:D[178]0:E[178]300:F[178]0:G[178]800:H[178][171]3000:J[178]100:Z[178]120:Q[178]0:[137]20350
15009 A[178]1123:D[178]0:E[178]150:F[178]0:G[178]500:H[178][171]1500:Z[178]80:J[178]70:Q[178]0:[137]20350
15018 A[178]1119:D[178]80:E[178][171]300:F[178]0:G[178][171]800:H[178]3000:Z[178][171]120:J[178]0:Q[178]100:[137]20350
15028 A[178]1123:D[178]60:E[178][171]150:F[178]0:Z[178][171]80:G[178][171]400:H[178]1500:J[178]0:Q[178]70:[137]20350
15039 A[178]1127:D[178]0:E[178]0:F[178]300:G[178]20:H[178][171]1200:J[178]80:Z[178]80:Q[178]0:[137]20350
15048 A[178]1127:D[178]20:E[178]0:F[178][171]300:G[178][171]20:Z[178][171]80:H[178]1200:J[178]0:Q[178]80:[137]20350
15500 [141]19000:[153]"(null)IE HABEN";LB(I);"(null)LEFT$ASC (null)AND,VON DENEN"
15515 [153]"";AC(I);"(null)LEFT$ASC BEPFLANZT UND";GL(I);"(null)LEFT$ASC":[153]"GEEIGNET SIND."
15530 A[178]0:[153]"(null)IEVIEL (null)LEFT$ASC WOLLEN SIE NEU":[153]"BEPFLANZEN ";:[133]A
15535 [139]A[177]GL(I)[176]A[179]0[167] [153]"ONONONONON":[137] 15530
15540 A[178]([181](A)):B[178]A[172]40:G(I)[178]G(I)[171]B:AC(I)[178]AC(I)[170]A:GL(I)[178]GL(I)[171]A
15544 SG(I)[178](A[172]4)[170]SG(I):[139][194](1043[170]I)[177]100[167][151](1043[170]I),100
15550 [153]"STR$AS HERSTELLEN VON LANDWIRTSCHAFT-"
15555 [153]"LICH GUT NUTZBAREM ATNCKER KOSTET":[153]"SIE";B"LEFT$ASC.":[137]20800
15601 A[178]500:B[178]1135:C[178]1:D[178]10000:X[178]60:E[178]0:Z[178]25:G[178]0:Z[178]20:Q[178]0:TY[178]20:[137]20400
15608 [139][194](1135[170]I)[179]0[167]20060
15611 A[178][171]500:X[178][171]60:B[178]1135:C[178][171]1:D[178][171]10000:E[178]0:Y[178]0:G[178]10:Z[178]0:Q[178]20:TY[178][171]20:[137]20400
15620 A[178]1100:B[178]1139:C[178]1:D[178]0:E[178]1000:G[178]0:X[178]90:Y[178]50:Z[178]120:Q[178]0:[137]20400
15627 [139][194](1139[170]I)[179]0[167]20060
15630 A[178][171]1100:Y[178]0:B[178]1139:C[178][171]1:D[178]0:E[178][171]1000:X[178][171]90:G[178]20:Z[178][171]120:Q[178]10:[137]20400
15690 [139]ZZ[179][177]1[167] 15694
15691 [141]19117:[142]
15694 [141]19000
15695 A[178]0:[153]"(null)IEVIEL CHR$LEFT$ASC WOLLEN (null)IE":[153]"ANBIETEN ";:[133]A
15697 A[178]([181](A)):[139]A[177]GV(I)[176]A[179]0[167] [153]"ONONONONONON":[137]15695
15702 GA(I)[178]GA(I)[170]A:GV(I)[178]GV(I)[171]A:B[178]0:[153]"(null)REIS PRO 100 CHR$LEFT$ASC ";:[133]B
15703 [139]B[177]255[176]B[179]0[167][153]"ONONONON":[137]15702
15705 [151](1143[170]I),B:[142]
15750 [141]19000
15751 [153]"PEEKEI (null)PIELER (A) ODER BEI (null)TORE (B)"
15756 [153]"ODER ZURFRECK INS (null)ENFRE (M) ?"
15757 [161] A$:[139]A$[178]""[167]15757
15758 [139]A$[178]"A"[175]ZZ[178]1[167] [153]"ONONONONONON":[137]15751
15759 [139] A$[178]"A"[167]15770
15761 [139] A$[178]"B"[167]15800
15763 [139] A$[178]"M"[167] [142]
15765 [153]"ONONONONONON":[137] 15751
15770 [153]"PEEKEI WELCHEM (null)PIELER ";:[133]A
15771 [139]A[178]0[167]15750
15772 [139]A[178]I[176]A[177]ZZ[176]A[179]1[167][153]"ONONONON":[137]15770
15773 [139]GA(A)[178]0[167][141]51300:[137]15770
15776 [153]"(null)PIELER";A;"BIETET";GA(A);"CHR$LEFT$ASC AN.(null)EIN"
15778 [153]"(null)REIS IST";[194](1143[170]A);"LEFT$ASC PRO 100 CHR$LEFT$ASC."
15780 [153]"(null)IEVIEL CHR$LEFT$ASC WOLLEN SIE ERWERBEN";[166]49):[133]B
15783 B[178]([181](B)):[139]B[179]0[176]B[177]GA(A)[167][153]"ONONONONONONONONONON":[137]15776
15784 B[178]([181](B)):GV(A)[178]GV(A)[171]B:GV(I)[178]GV(I)[170]B:GA(A)[178]GA(A)[171]B
15785 B[178](B[173]100)[172][194](1143[170]A):G(A)[178]G(A)[170]B:G(I)[178]G(I)[171]B:[139]GA(A)[178]0[167][151](1143[170]A),0
15786 [142]
15800 [141]19000
15801 [153]"STR$ER (null)REIS DER (null)TORE LIEGT BEI 40 LEFT$ASC"
15810 [153]"PRO 100 CHR$LEFT$ASC.(null)IEVIEL CHR$LEFT$ASC WOLLEN SIE"
15813 [153]"ERWERBEN ";:[133]A
15814 [139]A[179]0[167][153]"ONONONONONONONON":[137]15801
15817 A[178]([181](A)):GV(I)[178]GV(I)[170]A:C[178](A[173]100)[172]40:C[178]([181](C)):G(I)[178]G(I)[171]C:[142]
15850 [139] ZZ[177]1[167] 15855
15851 [141]19117:[142]
15855 [141]19000:Y[178]ZZ:[129]X[178]1[164]Y:[153]"CHR$ETREIDEANGEBOT ";N$(X);" =";GA(X)"CHR$LEFT$ASC"
15861 YY[178][195](N$(X)):[153]"CHR$ETREIDEPREIS";[166]YY[170]4)"=";[194](1143[170]X)"LEFT$ASC"
15865 [130]:[137]20800
19000 [153]"LOADMID$AHR:";JA"(null)R^SIDENT ";N$(I)
19010 [153]"(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)(null)":[142]
19059 A[178][171]3000:B[178]300:C[178]10000:D[178]120:F[178]1023:G[178][171]1:H[178]1:J[178]0:L[178]70:Q[178]0:[137]20249
19069 A[178][171]2500:D[178]10:B[178]50:C[178]5000:H[178]1:F[178]1027:G[178]2:J[178]0:L[178]5:Q[178]0:[137] 20249
19079 A[178][171]1500:D[178]40:B[178]100:C[178]11000:H[178][170]1:F[178]1031:G[178][171]3:J[178]0:L[178]200:Q[178]0:[137] 20249
19088 [139] [194](1023[170]I)[178]0 [167] 20060
19089 A[178]3000:D[178][171]120:B[178][171]300:C[178][171]10000:F[178]1023:G[178][171]1:H[178][171]1:J[178]80:L[178]0:Q[178]70:[137]20249
19098 [139] [194](1027[170]I)[178]0 [167] 20060
19099 A[178]2500:D[178][171]10:B[178][171]50:C[178][171]5000:F[178]1027:G[178][171]4:H[178][171]1:J[178]20:L[178]0:Q[178]5:[137]20249
19108 [139] [194](1031[170]I)[178]0 [167] 20060
19110 A[178]1500:D[178][171]40:B[178][171]100:L[178]0:C[178][171]11000:F[178]1031:G[178][171]1:H[178][171]1:J[178]40:Q[178]200:[137]20249
19116 [139]ZZ[177]1[167]19118
19117 [153]"ONONONON";[166]23)"(null)OZU ?WAIT":[137]20800
19118 [141]19000
19119 A[178]0:[153]"(null)IEVIEL (null)LEFT$ASC WOLLEN (null)IE":[153]"ANBIETEN ";:[133]A
19122 A[178]([181](A)):[139]A[177]EV(I)[176]A[179]0[167][153]"ONONONONONONON":[137]19119
19124 SVM(I)[178]SVM(I)[170]A:EV(I)[178]EV(I)[171]A:[153]"(null)REIS PRO (null)LEFT$ASC ";:[133]B
19125 [139]B[177]255[176]B[179]0[167] [153]"ONONONON":[137] 19124
19126 [151](1051[170]I),B:[142]
19127 [141]19000
19128 [153]"PEEKEI (null)PIELER (A) ODER (null)TORE (B)"
19129 [153]"ODER ZURFRECK INS (null)ENFRE (M) ?"
19130 [161]A$:[139] A$[178]""[167]19130
19131 [139]A$[178]"A"[175]ZZ[178]1[167][153]"ONONONONONON":[137]19128
19132 [139] A$[178]"A"[167]19136
19133 [139] A$[178]"B"[167]19150
19134 [139] A$[178]"M"[167][142]
19135 [153]"ONONONONONON":[137]19128
19136 [153]"PEEKEI WELCHEM (null)PIELER ";:[133] A
19137 [139]A[178]0[167]19127
19138 [139]A[178]I[176]A[177]ZZ[167] [153]"ONONONON":[137]19136
19139 [139]SVM(A)[178]0[167][141]51300:[137]19136
19140 [153]"(null)PIELER";A;"BIETET";SVM(A);"(null)LEFT$ASC (null)TROM ZUM"
19141 [153]"(null)REIS VON";[194](1051[170]A);"LEFT$ASC PRO (null)LEFT$ASC AN."
19142 B[178]0:[153]"(null)IEVIEL (null)LEFT$ASC WOLLEN SIE ERWERBEN";[166]49):[133] B
19144 B[178]([181](B)):[139]B[177]SVM(A)[176]B[179]0[167][153]"ONONONONONONON":[137] 19142
19146 C[178]B[172][194](1051[170]A):SVM(A)[178]SVM(A)[171]B:EV(I)[178]EV(I)[170]B:G(I)[178]G(I)[171]C:G(A)[178]G(A)[170]C:[142]
19150 [153]"STR$ER (null)TROMPREIS DER (null)TORE BETR^GT"
19151 [153]"3 LEFT$ASC PRO (null)LEFT$ASC.(null)IEVIEL (null)LEFT$ASC M\CHTEN":[153]"SIE ERWERBEN ";:[133]A
19152 [139]A[179]0[167][153]"ONONONONONONONON":[137]19150
19154 B[178]A[172]3:G(I)[178]G(I)[171]B:EV(I)[178]EV(I)[170]A:[142]
19172 [139]ZZ[179][177]1[167] 19175
19173 [141]19117:[142]
19175 [141]19000:Y[178]ZZ:[129]X[178]1[164]Y:[153]"(null)TROMANGEBOT ";N$(X);"=";SVM(X)"(null)LEFT$ASC"
19178 YY[178][195](N$(X)):[153]"(null)TROMPREIS";[166]YY[170]3)"=";[194](1051[170]X)"LEFT$ASC":[130]:[137]20800
19260 [141]19000
19261 Y[178][194](1083[170]I):[153]"(null)TEUERSATZ FESTLEGEN ((null)ROZENT) ";:[133]Y
19262 [139]Y[177]100[176]Y[179]0[176]Y[177][194](1167[170]I)[170]1[167][153]"ONONONON":[137]19261
19263 X[178]([194](1083[170]I)[171]Y)[172]10:[139][194](1039[170]I)[170]X[177]100[167][151](1039[170]I),100:[137]19268
19266 [139][194](1039[170]I)[170]X[179]1[167][151](1039[170]I),0:[137]19268
19267 [151](1039[170]I),[194](1039[170]I)[170]X
19268 [151](1083[170]I),Y:[142]
19270 [141]19000
19271 Y[178][194](1079[170]I):[153]"(null)OLL FESTLEGEN ((null)ROZENT) ";:[133]Y
19272 [139]Y[177]100[176]Y[179]0[167] [153]"ONONONON":[137]19271
19279 [151](1079[170]I),Y:[142]
19280 [139]GL(I)[171]30[179]0[167]20060
19285 [141]20050:G(I)[178]G(I)[171]1500:A(I)[178]A(I)[170]65:[151](1067[170]I),[194](1067[170]I)[170]1
19286 GL(I)[178]GL(I)[171]30:BL(I)[178]BL(I)[170]30:EB(I)[178]EB(I)[170]30:[142]
19290 YY[178][194](1075[170]I):[153]"(null)EUER LEFT$^RTGRAD (1-4) ";:[133]YY
19291 [139]YY[177]4[176]YY[179]1[167] [153]"ONONONON":[137]19290
19292 X[178][194](1075[170]I)[171]YY:[151](1075[170]I),YY:[139][194](1039[170]I)[170]X[177]100[167][151](1039[170]I),100:[142]
19295 [139][194](1039[170]I)[170]X[179]1[167][151](1039[170]I),0:[142]
19296 [151](1039[170]I),[194](1039[170]I)[170]X:[142]
19299 SP[178]52825:JMP[178]1
19300 [141]19000:[153][166]12)"CHR$ELD :";G(I)"LEFT$ASC"
19305 [151]SP,62:A[178]6:B[178]200:[153][166]12)"(null)OLIZISTEN :";PO(I)
19307 [153][166]12)"ATNUSBILDUNG :";[194](1087[170]I)"%"
19308 [153][166]12)"ATNUSR*STUNG :";[194](1155[170]I)"%"
19309 [153][166]12)"(null)ONDERKOMMANDOS:";[194](1091[170]I)
19315 [153]"(null)ONDERKOMMANDO - 200 LEFT$ASC":[153]"(null)OLIZISTEN EINSTELLEN"
19316 [153]"(null)OLIZISTEN ENTLASSEN"
19319 [153]"(null)ABOTAGE":[153]"RIGHT$NFORMATIONEN":[153]"(null)ENFRE"
19325 [141]20100:[139]JMP[178]6[167]1499
19326 [139]JMP[178]4[167]42000
19328 [145]JMP[141]19420,19360,50700,0,37000:[139]JM[178]11[167]19299
19329 [137]19300
19360 A[178]0:[153]"(null)IEVIEL (null)OLIZISTEN EINSTELLEN ";:[133]A
19361 [139]A[179]0[167][153]"ONONON":[137]19360
19362 A[178]([181](A)):A(I)[178]A(I)[170]A[172]10:PO(I)[178]PO(I)[170]A:[142]
19420 [141]20050
19422 G(I)[178]G(I)[171]200:A(I)[178]A(I)[170]60:[151](1091[170]I),[194](1091[170]I)[170]1:YY[178]1:[142]
19510 A[178]1000:B[178]110:C[178]400:D[178]1071:E[178]2:G[178]60:Z[178]140:Q[178]0:[137] 20290
19515 A[178][171]1000:B[178][171]110:C[178][171]400:D[178]1071:E[178]0:G[178]0:Z[178][171]140:Q[178]60:[137] 20290
19520 A[178]1250:B[178]70:C[178]0:D[178]1099:E[178]5:G[178]100:Z[178]250:Q[178]0:[137]20290
19525 A[178][171]1250:B[178][171]70:C[178]0:D[178]1099:E[178]0:G[178]0:Z[178][171]250:Q[178]100:[137]20290
19530 A[178]2500:C[178]200:B[178]20:D[178]1055:E[178]4:G[178]140:Z[178]170:Q[178]0:[137] 20290
19535 A[178][171]2500:C[178][171]200:B[178][171]20:D[178]1055:E[178]0:G[178]0:Z[178][171]170:Q[178]140:[137] 20290
19600 X[178]0:[153]"(null)IEVIEL (null)TFRECK ";:[133]X:[139]X[179]0[167][153]"ONONON":[137]19600
19601 [139]X[178]0[167][142]
19602 [145]Y[137]19610,19620,19630
19610 A[178]X[172]800:C[178]X[172]40:D[178]1309:B[178]X[172]3:[137]20200
19620 A[178]X[172]500:C[178]X[172]50:D[178]1299:B[178]X[172]2:[137]20200
19630 A[178]X[172]300:C[178]X[172]195:D[178]1319:B[178]X[172]1:[137]20200
19650 [139][194](1159[170]I)[178]0[175]JA[177]2012[167]BB[178]1:[137]35000
19651 [141]20060:[137]2499
19676 [141]20800
19677 P[178]0:[153]"LOADVALS WIRD IN ";:B[178][181](4[172][187](1))[170]1:[145]B[137]19690,19700,19710,19719
19690 [153]"DICHTEN (null)^LDERN":A[178]3:B[178]1:C[178]2:[137]19720
19700 [153]"FLACHER (null)ANDSCHAFT":A[178]1:B[178]2:C[178]3:[137]19720
19710 [153]"SUMPFIGER (null)ANDSCHAFT":A[178]2:B[178]1:C[178]3:[137]19720
19719 [153]"HFREGELIGER (null)ANDSCHAFT":A[178]2:B[178]3:C[178]1
19720 [153]"GEK^MPFT."
19721 [141] 19890
19723 XX[178]0:YY[178]0:P[178]P[170]1:[141]20450
19725 [139][194](1299[170]I)[170][194](1309[170]I)[170][194](1319[170]I)[178]0[167]A[178]I:B[178]Y:[137]40000
19726 [139][194](1299[170]Y)[170][194](1309[170]Y)[170][194](1319[170]Y)[178]0[167]A[178]Y:B[178]I:[137]40000
19729 [139]P[178]40[170][194](1710)[172]3[167]19851
19730 Z[178]A[172][194](1299[170]I):Q[178]B[172][194](1309[170]I):W[178]C[172][194](1319[170]I):A2[178]A[172][194](1299[170]Y)
19731 B2[178]B[172][194](1309[170]Y):C2[178]C[172][194](1319[170]Y):Z[178]Z[170]Q[170]W[170][194](1399[170]I)
19732 A2[178]A2[170]B2[170]C2[170][194](1399[170]Y):M[178]Z[170]A2
19735 [139]P[178]20[170][194](1710)[172]4[167]19851
19736 [137]19855
19851 [153]"VALNDE DES (null)RIEGES !":[141]20800:[139]A2[179]Z[167]A[178]Y:B[178]I:[137]19900
19853 [139]Z[179]A2[167]A[178]I:B[178]Y:[137]19900
19854 [139]Z[178]A2[167]Z[178]Z[170]1:[153]"ONONONON":[137]19851
19855 D[178][181](M[172][187](1))[170]1:E[178][181](3[172][187](1))[170]1:[139]D[179]Z[167]X[178]Y:[141]19865
19858 [139]D[177]Z[167]X[178]I:[141]19865
19860 [137] 19723
19865 E[178][181](3[172][187](1))[170]1:[145]E[141] 19870,19875,19880:[139]YY[178]1[167]YY[178]0:[137]19865
19867 YY[178]1:[142]
19870 [139][194](1299[170]X)[179]1[167]YY[178]1:[142]
19872 [151](1299[170]X),[194](1299[170]X)[171]1:[151](1349[170]I),[194](1349[170]I)[170]1:[142]
19875 [139][194](1309[170]X)[179]1[167]YY[178]1:[142]
19876 [151](1309[170]X),[194](1309[170]X)[171]1:[151](1359[170]I),[194](1359[170]I)[170]1:[142]
19880 [139][194](1319[170]X)[179]1[167]YY[178]1:[142]
19886 [151](1319[170]X),[194](1319[170]X)[171]1:[151](1369[170]I),[194](1369[170]I)[170]1:[142]
19890 A$(1)[178]"(null)ANZER":A$(2)[178]"ASCLUGZEUGE":A$(3)[178]"RIGHT$NFANTERIE":[153]"";LN$(I)
19891 [129]X[178]1[164]3:[153]"";A$(X):[130]:[153]"";LN$(Y):[129]X[178]1[164]3
19892 [153]"";A$(X):[130]:[142]
19900 X[178][194](1299[170]A)[170][194](1309[170]A)[170][194](1319[170]A)[170][194](1349[170]A)[170][194](1359[170]A)[170][194](1369[170]A)[170]1
19901 [151](1349[170]A),0:[151](1349[170]B),0:[151](1359[170]A),0:[151](1359[170]B),0:[151](1369[170]A),0
19902 [151](1369[170]B),0
19905 Z[178][181]((LB(A)[173]X))[170]400
19915 [153]"LOAD";LN$(A)" VERLOR";
19916 [139]A[179]ZZ[176]A[178]ZZ[175]Z[177]GL(A)[167]Z[178]GL(A)
19920 [153]Z"(null)LEFT$ASC (null)AND.":LB(A)[178]LB(A)[171]Z:LB(B)[178]LB(B)[170]Z:GL(B)[178]GL(B)[170]Z:GL(A)[178]GL(A)[171]Z
19950 [141]47000:[141]20800:[139]BB[178]1[167]BB[178]0:[137]2499
19951 [142]
20000 [129]I[178]1[164]ZZ:[139] [194](1699[170]I)[178]1[167]B(I)[178]0:[137]20010
20005 P(I)[178]0:AG(I)[178]0:[141]500:[141]21000:[151](1159[170]I),0
20007 [141]23010:[151](1163[170]I),0:[141]43000
20009 [139]JA[178](2010[170][194](1711))[167]30000
20010 [139]G(I)[179]0[167][141]32000
20011 [139]I[178]ZZ[167][141]38000
20013 [130]I:JA[178]JA[170]1
20014 [129]X[178]1[164]4:[151](1167[170]X),[194](1083[170]X):[130]
20015 [139]JA[177]2011[167][141]41000
20016 X[178]0:[129]Y[178]1[164]ZZ:X[178]X[170][194](1699[170]Y):[130]:[139]X[178]ZZ[167]20700
20020 [137]20000
20050 SI[178]54272:FL[178]SI:FH[178]SI[170]1:W[178]SI[170]4:Y[178]SI[170]5:HI[178]SI[170]6:P[178]SI[170]24
20051 [151]P,15:[151]Y,16[170]9:[151]FH,29:[151]FL,19:[151]W,17:[129]T[178]1[164]500:[130]:[151]W,0:[151]Y,0:[142]
20060 SI[178]54272:FL[178]SI:FH[178]SI[170]1:TL[178]SI[170]2:TH[178]SI[170]3:W[178]SI[170]4:A[178]SI[170]5:H[178]SI[170]6:L[178]SI[170]24
20061 [129]X[178]15[164]0[169][171]1:[151]L,X:[151]A,15:[151]EH,0:[151]FH,40:[151]FL,55:[151]W,65:[130]:[151]W,0
20064 [151]A,0:[142]
20100 [161] A$:[139] A$[178]"" [167] 20100
20110 YY[178]([198](A$)):[139]YY[178]145[167]JMP[178]JMP[171]1:[141] 20160
20130 [139]YY[178]17[167]JMP[178]JMP[170]1:[141] 20170
20135 [139]YY[178]13[167][142]
20145 [137] 20100
20160 [139]JMP[178]0[167]JMP[178]A:[151]SP,32:SP[178]SP[170]B:[151]SP,62:[142]
20161 [151]SP,32:SP[178]SP[171]40:[151]SP,62:[142]
20170 [139]JMP[178]A[170]1[167]JMP[178]1:[151]SP,32:SP[178]SP[171]B:[151]SP,62:[142]
20171 [151]SP,32:SP[178]SP[170]40:[151]SP,62:[142]
20200 [139]([194](1299[170]I)[170][194](1309[170]I)[170][194](1319[170]I)[170]X)[173]9[179][178][194](1379[170]I)[167]20204
20202 [153]"ONONONSTOPVALRST (null)ASERNE KAUFEN!WAIT":[141]20800:[142]
20204 [139][194](D[170]I)[170]X[177]255[167][142]
20209 G(I)[178]G(I)[171]A:A(I)[178]A(I)[170]C:[151](D[170]I),[194](D[170]I)[170]X
20210 [139][194](1399[170]I)[170]B[177]255[167][151](1399[170]I),255:[137]20050
20211 [151](1399[170]I),[194](1399[170]I)[170]B:[137]20050
20249 [139] GL(I)[171]L[179]1[167]20060
20252 [141]20050:G(I)[178]G(I)[170]A:EB(I)[178]EB(I)[170]B:EG(I)[178]EG(I)[170]C:A(I)[178]A(I)[170]D:LB(I)[178]LB(I)[171]Q
20254 [151](F[170]I),[194](F[170]I)[170]H:AL(I)[178]AL(I)[170]J:GL(I)[178]GL(I)[171]L:BL(I)[178]BL(I)[170]L:BL(I)[178]BL(I)[171]Q
20255 [151](1039[170]I),[194](1039[170]I)[170]G:[139][194](1039[170]I)[179]5[167][151](1039[170]I),6
20257 [139][194](1039[170]I)[177]100[167] [151](1039[170]I),100:[142]
20258 [142]
20290 [139][194](1095[170]I)[177]200[167]49000
20291 [153]"(null)IEVIEL (null)TFRECK ";:[133]V
20292 X[178]V:[139]JM[178]2[176]JM[178]4[176]JM[178]6[167]V[178]V[171](V[172]2)
20293 [139][194](D[170]I)[170]V[179]0[167][153]"ONONON":[137]20290
20294 [139]V[178]0[167][142]
20295 [139]GL(I)[171]X[172]G[179]0[176][194](D[170]I)[170]V[177]255[176]X[179]0[167][153]"ONONON":[137]20290
20300 G(I)[178]G(I)[171]X[172]A:A(I)[178]A(I)[170]X[172]B:UP(I)[178]UP(I)[170]X[172]C:[151](D[170]I),[194](D[170]I)[170]V
20302 BL(I)[178]BL(I)[170]X[172]G:GL(I)[178]GL(I)[171]X[172]G
20304 [139][194](1095[170]I)[170]X[172]E[177]255[167][151](1095[170]I),255:[137]20307
20305 [151](1095[170]I),[194](1095[170]I)[170]X[172]E
20307 EB(I)[178]EB(I)[170]X[172]Z:LB(I)[178]LB(I)[171]X[172]Q:BL(I)[178]BL(I)[171]X[172]Q:[137]20050
20350 [153]"(null)IEVIEL (null)TFRECK ";:[133]X
20351 V[178]X:[139]JM[178]2[176]JM[178]4[176]JM[178]6[167]V[178]X[171](X[172]2)
20352 [139]X[178]0[167][142]
20353 [139]GL(I)[171]X[172]J[179]0[176][194](A[170]I)[170]V[177]255[176][194](A[170]I)[170]V[179]0[167][153]"ONONON":[137]20350
20360 AL(I)[178]AL(I)[170]X[172]D:[151](A[170]I),[194](A[170]I)[170]V:PI(I)[178]PI(I)[170]X[172]E
20362 GL(I)[178]GL(I)[171]X[172]J:LH(I)[178]LH(I)[170]X[172]F:EB(I)[178]EB(I)[170]X[172]G:G(I)[178]G(I)[170]X[172]H
20364 BL(I)[178]BL(I)[170]X[172]J:A(I)[178]A(I)[170]X[172]Z:LB(I)[178]LB(I)[171]X[172]Q:BL(I)[178]BL(I)[171]X[172]Q:[137]20050
20400 [139]GL(I)[171]Z[179]1[167]20060
20402 G(I)[178]G(I)[171]A:[151](B[170]I),[194](B[170]I)[170]C:LA(I)[178]LA(I)[170]D:GK(I)[178]GK(I)[170]E
20403 AL(I)[178]AL(I)[170]G:A(I)[178]A(I)[170]X:GL(I)[178]GL(I)[171]Z:EB(I)[178]EB(I)[170]TY
20405 LB(I)[178]LB(I)[171]Q:BL(I)[178]BL(I)[171]Q:[137]20050
20450 [153]" CMDCMDCMDCMD"[194](1299[170]I)
20451 [153]" CMDCMDCMDCMD"[194](1309[170]I)
20452 [153]" CMDCMDCMDCMD"[194](1319[170]I)
20453 [153]" CMDCMDCMDCMD"[194](1299[170]Y)
20454 [153]" CMDCMDCMDCMD"[194](1309[170]Y)
20455 [153]" CMDCMDCMDCMD"[194](1319[170]Y)
20465 [142]
20500 [151]198,0:[153]"(null)IE HABEN";G(I)"LEFT$ASC ZUR (null)ERFFREGUNG."
20501 B[178]0:[153]"(null)IEVIEL LEFT$ASC WOLLEN SIE BEREITSTELLEN";[166]5):[133]B
20502 [139] B[177][171]0.01[167]20505
20503 [137]20500
20505 G(I)[178]G(I)[171]B:[142]
20550 X[178][194](1023[170]I)[172]2[170][194](1031[170]I)[172]3[170][194](1055[170]I)[172]2[170][194](1071[170]I)[172]1[170][194](1099[170]I)[172]1
20551 X[178]X[170][194](1119[170]I)[172]3.5[170][194](1123[170]I)[172]2[170](AC(I)[173]100)[170][194](1380[170]I)[172]0.5[170][194](1128[170]I)[172]0.5
20554 X[178]X[170][194](1135[170]I)[172]0.5:X[178]([181](X)):[139][194](1043[170]I)[171]X[179]1[167][151](1043[170]I),0:[142]
20555 [151](1043[170]I),[194](1043[170]I)[171]X:[142]
20700 [153]"LOAD(null)OLLEN SIE NOCH EIN (null)PIEL WAGEN (S)"
20720 [153]"ODER LIEBER AUFH\REN (A) ?"
20730 [161]A$:[139]A$[178]""[167]20730
20740 [139]A$[178]"S"[167][138]
20741 [139]A$[178]"A"[167][158]64738
20743 [137]20730
20800 [151]198,0:[146]198,1:[151]198,0:[142]
20950 [129]X[178]1[164]40:[151](1299[170]X),6:[130]:[129]X[178]1[164]30:[151](1349[170]X),0:[130]
20955 [129]X[178](ZZ[170]1)[164]10:LB(X)[178]20000:[130]
20960 [129]X[178]1[164]10:[135]LN$(X):[130]:[137]20980
20965 [131]"STR$EUTSCHLAND","ASCRANKREICH","(null)CHWEDEN","STR$^NEMARK","LEFT$OLLAND"
20970 [131]"(null)CHWEIZ","RIGHT$TALIEN","VALNGLAND","POSSTERREICH","(null)PANIEN"
20980 [129]X[178]1[164]10:Y[178][181](10[172][187](1))[170]20:[151](1399[170]X),Y:[151](1699[170]X),0:[130]:[142]
21000 [141]19000:[153]"VALNERGIE:"
21002 [139][194](1039[170]I)[171][194](1075[170]I)[179]1[167][151](1039[170]I),0:[137]21020
21004 [151](1039[170]I),[194](1039[170]I)[171][194](1075[170]I)
21020 [153]"(null)RODUKTION :";EG(I)"(null)LEFT$ASC"
21021 [153]"(null)ORRAT :";EV(I)"(null)LEFT$ASC"
21025 [153]"VALNERGIE BEN\TIGT:";EB(I)"(null)LEFT$ASC":EV(I)[178](EV(I)[170]EG(I))[171]EB(I):G[178]1
21030 [139]EV(I)[179]0[167]G[178]EV(I):EV(I)[178]0
21031 [139]G[177]0[167]21305
21050 X[178][181](G[172][171]1.98):G(I)[178]G(I)[171]X:[153]"(null)U WENIG VALNERGIE,ES ENTSTANDEN"
21060 [153]"(null)CH^DEN IN LEFT$\HE VON";X"LEFT$ASC.":G(I)[178]G(I)[171]X
21145 [151](1155[170]I),[194](1155[170]I)[171]1
21305 [153]"MID$USTIZ:"
21306 X[178][181](750[172][187](1))[170]750:X[178]X[171][194](1087[170]I)[171][194](1155[170]I)[171]PO(I):[139]X[179]50[167][141]52000
21310 [153]"BEGANGENE (null)ERBRECHEN :";X
21315 Y[178][181](X[173]([194](1075[170]I)[170]3)):[153]"CHR$EF^NGNISSTRAFEN :";Y
21320 X[178][181](X[172]1.9):[153]"ENTSTANDENER (null)CHADEN :";X"LEFT$ASC":G(I)[178]G(I)[171]X
21395 X[178][194](1067[170]I)[172]100:[139]Y[179]X[167]21490
21450 [153]"(null)U WENIG CHR$EF^NGNISSE,ES ENTSTANDEN"
21453 Y[178]X[171]Y[172][171]5:[153]"VALXTRAKOSTEN IN LEFT$\HE VON";Y"LEFT$ASC.":G(I)[178]G(I)[171]Y
21490 [141]20800
21499 [141]19000:[153]"VALINNAHMEN DURCH"
21500 Y[178][181](1000[172][187](1))[170]99:X[178]((EW(I)[173]0.3)[170]Y)[173]100[172][194](1083[170]I):X[178]([181](X[172]2))
21510 [153]"- (null)TEUERN :";X"LEFT$ASC":G(I)[178]G(I)[170]X
21520 X[178]([181](EB(I)[173]3.34)):[153]"- (null)TROMVERKAUF ANS (null)OLK :";X"LEFT$ASC":G(I)[178]G(I)[170]X
21521 [139]AL(I)[179]1[167]21550
21536 X[178][181](AL(I)[173]0.911):G(I)[178]G(I)[170]X:[153]"- ATNBGABEN VON ATNUSL^NDERN:";X"LEFT$ASC"
21550 Y[178][181](999[172][187](1)):X[178][181](UP(I)[173]32.72)[172][194](1095[170]I)[170]Y[171]([194](1079[170]I)[172]30)
21555 [139]X[179]1000[167]X[178]1000
21590 [153]"- (null)OURISMUS :";X"LEFT$ASC
21591 G(I)=G(I)+X
21600 Z=INT(UP(I)/100)*PEEK(1079+I):X=INT((Z/2)*RND(1)):Z=Z+X
21630 PRINT"- [218]OLL :";Z"[200][198]":G(I)=G(I)+Z:GOSUB46000
21690 Q=INT(3*RND(1))+5:Y=X*Q:PRINT"- [201]NDUSTRIE :";Y"[200][198]"
21691 G(I)=G(I)+Y:IFZ=1THENGOSUB46002
21750 GOSUB20800:GOSUB44000:GOTO45000
21751 GOSUB33000
21752 IFAL(I)=0THEN21755
21753 X=INT(AL(I)/200):IFPEEK(1039+I)-X<1THENPOKE(1039+I),0:GOTO21755
21754 POKE(1039+I),PEEK(1039+I)-X
21755 GOSUB19000:PRINT"[197]RNTE"
21757 PRINT"[215]ETTERLAGE :";
21760 X=INT(4*RND(1))+1:ONXGOTO21770,21780,21790,21800,21
21770 PRINT"[196]*RRE":X=5:GOTO21820
21780 PRINT"SEHR TROCKEN":X=6.5:GOTO21820
21790 PRINT"NORMAL":X=12:GOTO21820
21800 PRINT"SEHR GUT":X=16:GOTO21820
21810 PRINT"ZU FEUCHT":X=9:GOTO21820
21820 IFW>300THENZ=INT(4000*RND(1)):GOTO21830
21823 Z=0
21830 Y=INT((W*X)+Z):PRINT"[197]RNTE :";Y"[199][200][198]"
21839 PRINT"[214]ORRAT :";GV(I)"[199][200][198]"
21842 PRINT"[214]ERBRAUCH :";GB(I)"[199][200][198]":GV(I)=GV(I)+Y
21843 IFGB(I)>GK(I)ANDGV(I)>GK(I)THENGOSUB20800:GOSUB49500
21844 IFGV(I)<0THENGV(I)=0
21845 IFGV(I)<GB(I)THEN21870
21846 IFYY=1THENYY=0:GOTO21890
21847 IFXX=512THENXX=0:GOTO21900
21848 GOTO21890
21870 PRINT"[196]ADURCH,DASS SIE ZU WENIG [199]ETREIDE"
21872 X=GB(I)-GV(I):X=X/10:X=(INT(X)):PRINT"HATTEN,VERHUNGERTEN";X"[205]ENSCHEN."
21874 EW(I)=EW(I)-X:X=X/50:X=(INT(X))
21875 IF(PEEK(1039+I)-X)<0THEN POKE(1039+I),0:GOTO21890
21876 POKE(1039+I),PEEK(1039+I)-X
21890 GOSUB20800
21900 IFGV(I)<0THENGV(I)=0
21909 IFGV(I)<GB(I)THENX=GV(I):GOTO21955
21910 X=GB(I)
21955 GOSUB19000:PRINT"[197]INNAHMEN DURCH [199]ETREIDEVERKAUF":W=INT(X/1.42)
21961 W=W+V:PRINT"AN IHR [214]OLK :";W"[200][198]":P(I)=P(I)+W:GV(I)=GV(I)-GB(I)
21962 IFGV(I)<0THENGV(I)=0
21963 IFGV(I)<LA(I)THEN22000
21993 X=GV(I)-LA(I):GV(I)=LA(I):PRINT"[196]A SIE ZU WENIG [204]AGERPLATZ HATTEN"
21995 PRINT"VERSCHIMMELTEN";X"[199][200][198]."
22000 PRINT"[193]LLGEMEINE [213]NTERHALTSKOSTEN :";A(I)"[200][198]":GOSUB20800
22002 G(I)=G(I)-A(I)
22055 GOSUB19000:GOSUB20550:PRINT"[213]MWELTSCHUTZGRUPPEN VERLANGEN"
22060 Y=(100-PEEK(1043+I))*165:X=INT(700*RND(1)):Z=(JA-2010)*121:Y=Y+X+Z
22062 PRINT"VON [201]HNEN,";Y"[200][198] F*R DEN":PRINT"[213]MWELTSCHUTZ AUSZUGEBEN."
22091 GOSUB20500:W=INT(B/165):IFPEEK(1043+I)+W>100THENPOKE(1043+I),100:GOTO22150
22092 POKE(1043+I),PEEK(1043+I)+W
22150 GOSUB 19000
22210 Q=(INT(EW(I)/2244)):IFPEEK(1039+I)-Q<1THENPOKE(1039+I),0:GOTO22218
22213 POKE(1039+I),PEEK(1039+I)-Q
22218 Y=(100-PEEK(1039+I))*523:Z=(JA-2010)*251
22219 X=INT(500*RND(1)):Y=Y+X+Z:PRINT"[196]AS [214]OLK VERLANGT";Y"[200][198] VON"
22220 PRINT"[201]HNEN,UM \FFENTLICHE [197]INRICHTUNGEN":PRINT"FINANZIEREN ZU K\NNEN."
22235 GOSUB20500:X=INT(B/523):IFPEEK(1039+I)+X>100THENPOKE(1039+I),100:GOTO22305
22240 POKE(1039+I),PEEK(1039+I)+X
22305 GOSUB47500:IFPEEK(1043+I)<50THENGOSUB22400
22320 IFPEEK(1039+I)<40THENGOSUB22500
22325 RETURN
22400 GOSUB19000:X=INT(4*RND(1))+1:PRINT"[196]URCH DEN SCHLECHTEN [218]USTAND"
22410 Y=100-PEEK(1043+I):X=X*Y:X=(INT(X)):Y=INT(9*RND(1))+1:X=X+Y
22411 PRINT"DER [213]MWELT STARBEN"
22412 PRINT"";X"[205]ENSCHEN AN SCHWEREN [214]ERGIFT-"
22415 PRINT"UNGEN.[196]AS [214]OLK IST DAR*BER SEHR VER-"
22420 PRINT"^RGERT UND FORDERT SIE AUF,MEHR F*R":EW(I)=EW(I)-X
22425 PRINT"DIE [213]MWELT ZU TUN.":X=X/20
22426 IFPEEK(1039+I)-X<1THENPOKE(1039+I),0:GOTO22430
22427 POKE(1039+I),PEEK(1039+I)-X
22430 GOTO20800
22500 GOSUB31000:PRINT"[146][208]RESIDENT ";N$(I)" IST LEIDER AUSGE-"
22510 PRINT"SCHEIDEN.[197]R WURDE VON SEINEM W*TENDEM"
22515 PRINT"[214]OLK GEBLENDET UND VERBANNT.":PRINT"IHRE POLITISCHE [203]ARRIERE IST DAMIT"
22525 PRINT"WOHL BEENDET.":T(I)=1:GOTO20800
22600 IFPEEK(1379+I)<1THENPOKE(1152+I),0:RETURN
22610 GOSUB19000:Z=PEEK(1379+I)*99:X=Z/100:PRINT"[196]IE [211][193][199] FORDERT VON IHNEN,"
22630 PRINT"";Z"[200][198] F*R DIE [211]ICHERUNG VON"
22635 PRINT"[203]ASERNEN BEREITZUSTELLEN.":GOSUB20500:Y=B/X
22636 IFPEEK(1151+I)+Y>100THENPOKE(1151+I),100:RETURN
22637 POKE(1151+I),Y:RETURN
23010 X=INT(54*RND(1))+1:IFX>27THENRETURN
23015 GOSUB19000:PRINTSPC(13)"[197][210][197][201][199][206][201][211][211]"
23020 ON X GOTO23100,23200,23300,23400,23500,23600,23700,23800,23900,24000
23025 ONX-10GOTO24100,24200,24300,24400,24500,24600,24700,24800,24900,25000
23030 ONX-20GOTO25100,25200,25300,25400,25500,25600,25700
23100 Y=INT(4*RND(1))+1:ONYGOTO23105,23107,23109,23111
23105 A=1027:B$=" [215]INDRAD":EG(I)=EG(I)-5000:A(I)=A(I)-60:EV(I)=EV(I)-50
23106 GL(I)=GL(I)+25:GOTO23115
23107 A=1031:B$=" [211]TAUDAMM":EG(I)=EG(I)-11000:A(I)=A(I)-40
23108 GL(I)=GL(I)+200:EB(I)=EB(I)-100:GOTO23115
23109 A=1071:B$=" [200]OTEL":EB(I)=EB(I)-140:A(I)=A(I)-110:GL(I)=GL(I)+60
23110 UP(I)=UP(I)-400:GOTO23115
23111 A=1123:B$="E [198]ABRIK":PI(I)=PI(I)-3000:EB(I)=EB(I)-500
23112 A(I)=A(I)-120:BL(I)=BL(I)-100
23115 IFPEEK(A+I)<1THEN RETURN
23116 Y=INT(3*RND(1))+1:ONYGOTO23117,23118,23119
23117 A$="[212]ERRORANSCHLAG":GOTO23120
23118 A$="[194]RAND":GOTO23120
23119 A$="[201]RRTUM EINER [193]BRISSFIRMA"
23120 PRINT"[196]URCH EINEN ";A$
23121 PRINT"VERLOREN [211]IE EIN";B$"."
23130 Z=INT(2000*RND(1))+1000:PRINT"[211]CHADEN :";Z"[200][198]"
23135 POKE(A+I),PEEK(A+I)-1:GOTO20800
23200 PRINT"[215]OLLEN SIE EIN LANDESWEITES [203]INDER-"
23205 PRINT"FEST VERANSTALTEN (J/N) ?"
23210 GETA$:IFA$=""THEN23210
23215 IFA$="J" THEN23230
23220 IFA$="N" THEN23260
23225 GOTO 23210
23230 PRINT"[196]ER [197]RFOLG WAR RIESIG,DIE [203]OSTEN"
23235 PRINT"LEIDER AUCH! [196]AS [199]ANZE KOSTETE N^MLICH"
23240 X=(INT(EW(I)/3)/3):Y=INT(X*RND(1))+2000:PRINT"";Y"[200][198].":G(I)=G(I)-Y
23245 POKE(1039+I),PEEK(1039+I)+3:IFPEEK(1039+I)>100THENPOKE(1039+I),100
23255 GOTO23280
23260 GOSUB50760:PRINT"[201]HREN [199]EIZ !"
23270 IFPEEK(1039+I)-3<1THENPOKE(1039+I),0:GOTO23280
23275 POKE(1039+I),PEEK(1039+I)-3
23280 GOTO20800
23300 PRINT"[197]XTRA [211]TEUEREINNAHMEN DURCH EINE"
23305 X=INT(2000*RND(1))+2000:PRINT"PRIVATE [204]OTTERIE :";X"[200][198]":G(I)=G(I)+X:GOTO20800
23400 PRINT"[212]ASTE !":GOTO20800
23500 X=INT(5*RND(1))+1:IFX>1THENPRINT"[212]ASTE !":GOTO20800
23503 GOSUB31000:PRINT"";N$(I)" IST LEIDER VER-"
23506 PRINT"STORBEN.[197]IN [212]ERRORIST DRANG IN SEINE"
23510 PRINT"[214]ILLA EIN UND VERGIFTETE IHN.":GOTO20800
23600 PRINT"[197]IN [185]LTRANSPORTER LIEF AUS UND VER-
23605 [153]"SEUCHTE DAS CHR$RUNDWASSER.STR$IE"
23610 X[178][181](1000[172][187](1)[170]750):[153]"VALNTSEUCHUNG KOSTETE";X"LEFT$ASC.":G(I)[178]G(I)[171]X
23615 [137]20800
23700 [153]"VALIN RIGHT$NDUSTRIELLER WIRD VERD^CHTIGT,"
23710 [153]"(null)TEUERN HINTERZOGEN ZU HABEN.(null)OLLEN"
23720 [153]"SIE EINEN (null)ROZESS (J/N) ?"
23725 [161]A$:[139] A$[178]""[167] 23725
23730 [139]A$[178]"J"[167]23750
23735 [139]A$[178]"N"[167][142]
23740 [137] 23725
23750 X[178][181](2[172][187](1))[170]1:[139]X[178]1[167]23760
23754 [137]23770
23760 [153]"(null)IE HABEN GEWONNEN UND BEKOMMEN"
23762 X[178][181](3000[172][187](1))[170]1000:[153]"";X"LEFT$ASC.":G(I)[178]G(I)[170]X:[137]20800
23770 X[178]([181](1000[172][187](1))[170]500):[153]"(null)IE HABEN VERLOREN."
23771 [153]"CHR$ERICHTSKOSTEN :";X"LEFT$ASC":[137]20800
23800 [153]"PEEKEI EINEM ASCUSSBALLSPIEL WURDEN"
23805 X[178][181](5[172][187](1))[170]5:[153]"";X"ASCANS BEI (null)RFREGELEIEN GET\TET.":[141]50760
23816 [153]"RIGHT$HRE (null)OLIZEI.":[139][194](1039[170]I)[171]3[179]1[167] [151](1039[170]I),0:[137]20800
23820 [151](1039[170]I),[194](1039[170]I)[171]3:[137]20800
23900 [153]"CHR$EISELDRAMA !":X[178][181](3[172][187](1))[170]2:[153]"PEEKEI EINEM PEEKANKFREBERFALL WURDEN";X
23904 [153]"(null)EUTE ALS CHR$EISELN GENOMMEN.":[139][194](1091[170]I)[179]1[167]23930
23908 [153]"RIGHT$HR (null)ONDERKOMMANDO STFRERMTE DIE PEEKANK"
23910 [153]"UND BEFREITE DIE CHR$EISELN.STR$IE CHR$EISEL-":[153]"NEHMER WURDEN ERSCHOSSEN."
23918 X[178][181](1000[172][187](1))[170]1000:[153]"(null)OSTEN:";X"LEFT$ASC":G(I)[178]G(I)[171]X
23920 [139][194](1039[170]I)[170]4[177]100[167][151](1039[170]I),100:[137]20800
23922 [151](1039[170]I),[194](1039[170]I)[170]4:[137]20800
23930 [153]"STR$A SIE KEIN (null)ONDERKOMMANDO HATTEN,"
23932 [153]"MUSSTE MAN DEN ASCORDERUNGEN NACHGEBEN."
23934 Y[178][181](X[172][187](1))[170]2:[153]"";Y"CHR$EISELN SIND UMS (null)EBEN GE-"
23936 [153]"KOMMEN.STR$AS (null)OLK IST SEHR VER^RGERT":EW(I)[178]EW(I)[171]Y
23938 [153]"DARFREBER,DASS KEIN (null)ONDERKOMMANDO"
23939 [153]"VORHANDEN WAR."
23940 [139][194](1039[170]I)[171]4[179]1[167][151](1039[170]I),0:[137]20800
23942 [151](1039[170]I),[194](1039[170]I)[171]4:[137]20800
24000 [153]"(null)ASTE !":[137]20800
24100 [153]"(null)IE MUSSTEN EINEN 40 MID$AHRE ALTEN"
24105 X[178][181](1000[172][187](1))[170]1000:[153]"(null)REDIT ZURFRECKZAHLEN.";:G(I)[178]G(I)[171]X
24106 [153]"(null)OSTEN:";X"LEFT$ASC":[137]20800
24200 [153]"RIGHT$HRE ATNRMEE HAT BEI EINEM INTER-":[153]"NATIONALEN UND KOSTENLOSEN ATNUS-"
24210 [153]"BILDUNGSWETTBEWERB TEILGENOMMEN.RIGHT$HRE"
24215 [153]"(null)AMPFST^RKE STIEG.":[139][194](1115[170]I)[170]4[177]100[167][151](1115[170]I),100:[137]20800
24220 [151](1115[170]I),[194](1115[170]I)[170]4:[137]20800
24300 [153]"ATNUS DEM (null)ERKAUF ALTER (null)AGERBEST^NDE"
24305 X[178][181](2000[172][187](1))[170]1000:[153]"ERHALTEN SIE";X"LEFT$ASC.":[137]20800
24400 [153]"VALINE (null)ENTEN-(null)ONDERZAHLUNG IST F^LLIG."
24405 X[178][181](2000[172][187](1))[170]1500:G(I)[178]G(I)[171]X:[153]"(null)OSTEN :";X"LEFT$ASC":[137]20800
24500 [153]"PEEKEI EINER LEFT$OCHWASSERKATASTROPHE"
24505 X[178][181](5000[172][187](1))[170]3000:[153]"ENTSTAND EIN (null)ACHSCHADEN VON";X"LEFT$ASC."
24510 G(I)[178]G(I)[171]X:X[178][181](100[172][187](1))[170]20:[153]"";X"(null)ENSCHEN KAMEN UMS (null)EBEN."
24515 EW(I)[178]EW(I)[171]X:[137]20800
24600 X[178][181](250[172][187](1))[170]200:[153]"VALINE CHR$RUPPE VON";X"POLITISCH"
24605 [153]"(null)ERFOLGTEN WURDE IN RIGHT$HR (null)AND AUFGE-"
24610 [153]"NOMMEN.":EW(I)[178]EW(I)[170]X:[137]20800
24700 [153]"RIGHT$N EINER (null)LINIK FIEL DER (null)TROM AUS."
24705 [153]"STR$A KEIN (null)OTSTROM-ATNGGREGAT VORHANDEN"
24710 X[178][181](15[172][187](1))[170]10:[153]"WAR STARBEN,";X"(null)ENSCHEN."
24715 [141]50760:[153]"DAS ASCEHLEN EINES (null)OTSTROM-":EW(I)[178]EW(I)[171]X
24720 [153]"AGGREGATS IN EINER (null)LINIK."
24725 Y[178][181](100[172][187](1))[170]50:Y[178]X[172]Y:[153]"STR$IE VALNTSCH^DIGUNGEN F*R DIE ASCAMILIEN"
24730 [153]"BELAUFEN SICH AUF";Y"LEFT$ASC.":G(I)[178]G(I)[171]Y
24735 [139][194](1039[170]I)[171]5[179]1[167][151](1039[170]I),0:[137]20800
24740 [151](1039[170]I),[194](1039[170]I)[171]5:[137]20800
24800 [153]"(null)IE BEKOMMEN EINEN (null)REDIT IN LEFT$\HE VON"
24805 X[178][181](7000[172][187](1))[170]3000:[153]"";X"LEFT$ASC ZURFRECK.":G(I)[178]G(I)[170]X:[137]20800
24900 [153]"RIGHT$HR (null)TAAT BEKAM DURCH EIN ASC\RDER-"
24905 [153]"UNGSPROJEKT EINEN (null)USCHUSS IN LEFT$\HE"
24910 X[178][181](10000[172][187](1))[170]5000:[153]"VON";X"LEFT$ASC.":G(I)[178]G(I)[170]X:[137]20800
25000 X[178][181](5[172][187](1))[170]1:[139]X[177]2[176][194](1023[170]I)[178]0[167][153]"(null)ASTE !":[137]20800
25020 [153]"VALINES RIGHT$HRER (null)ERNKRAFTWERKE IST IN"
25022 [153]"DIE (null)UFT GEFLOGEN.RIGHT$M GANZEN (null)AND BE-"
25025 [153]"GANN EIN (null)ASSENSTERBEN."
25030 [153]"RIGHT$HR (null)AND IST F*R DIE DIE N^CHSTEN 50"
25035 [153]"MID$AHRE NICHT MEHR BEWOHNBAR."
25040 [153]"(null)IE STARBEN EBENFALLS,WOMIT DAS":[151](1699[170]I),1
25045 [153]"(null)PIEL FFRER SIE LEIDER BEENDET IST.":[137]20800
25100 [153]"STR$URCH PEEKRANDSTIFTUNG IN EINEM RIGHT$HRER"
25105 [153]"PEEKFREROS ENSTAND EIN (null)ACHSCHADEN VON":X[178][181](3000[172][187](1))[170]2000
25110 [153]"";X"LEFT$ASC.":G(I)[178]G(I)[171]X:[137]20800
25200 [153]"PEEKEI EINEM CHR$RUBENUNGLFRECK KAMEN"
25205 X[178][181](20[172][187](1))[170]5:EW(I)[178]EW(I)[171]X:Y[178][181](3000[172][187](1))[170]2000:G(I)[178]G(I)[171]Y
25210 [153]"";X"(null)ENSCHEN UMS (null)EBEN.(null)IE MUSSTEN"
25215 [153]"";Y"LEFT$ASC AN DIE ASCAMILIEN DER (null)PFER"
25220 [153]"BEZAHLEN.":[137]20800
25300 [139][194](1043[170]I)[177]50[167][153]"(null)ASTE !":[137]20800
25305 [153]"(null)MWELTSCHUTZGRUPPEN VERANSTALTETEN"
25310 [153]"MEHRERE (null)ASSENDEMOS,UM AUF DEN"
25315 [153]"SCHLECHTEN (null)MWELTZUSTAND AUFMERKSAM"
25320 [153]"ZU MACHEN.":[137]20800
25400 [139][194](1023[170]I)[179]10[167][153]"(null)ASTE !":[137]20800
25405 [153]"STR$AS (null)OLK FORDERT SIE AUF,WENIGER"
25406 [153]"(null)ERNKRAFTWERKE ZU BAUEN.":[137]20800
25500 [153]"RIGHT$HR (null)EKRET^R MACHTE SICH MIT"
25505 X[178][181](3000[172][187](1))[170]999:[153]"";X"LEFT$ASC AUS DEM (null)TAUB.":[137]20800
25525 X[178][181](20[172][187](1))[170]5:EW(I)[178]EW(I)[171]X:Y[178]X[173]2
25600 [153]"(null)IE WERDEN AUFGEFORDERT,LEFT$ILFSGFRETER"
25610 [153]"FFRER VALRDBEBENOPFER IN MID$APAN BE-"
25620 [153]"REITZUSTELLEN.STR$IE (null)OSTEN SIND NOCH"
25630 [153]"NICHT ABSCH^TZBAR.RIGHT$HR (null)OLK FORDERT"
25640 [153]"SIE AUF,ZU SPENDEN.(null)OLLEN SIE"
25650 [153]"DIE LEFT$ILFSGFRETER BEREITSTELLEN (J/N) ?"
25660 [161]A$:[139]A$[178]""[167]25660
25670 [139]A$[178]"J"[167]25690
25675 [139]A$[178]"N"[167]25682
25676 [137]25660
25682 [141]50760:[153]"IHREN CHR$EIZ !":[139][194](1039[170]I)[171]4[179]0[167][151](1039[170]I),0:[137]20800
25683 [151](1039[170]I),[194](1039[170]I)[171]4:[137]20800
25690 [153]"STR$AS (null)OLK IST FREBER IHRE LEFT$ILFSBEREIT-"
25691 X[178][181](3000[172][187](1))[170]2500:G(I)[178]G(I)[171]X:[151](1039[170]I),[194](1039[170]I)[170]2
25692 [153]"SCHAFT SEHR ERFREUT.(null)OSTEN:";X"LEFT$ASC":[137]20800
25693 [139][194](1039[170]I)[177]100[167][151](1039[170]I),100
25700 [153]"STR$IE (null)ENOVIERUNG DER ATNLTSTADT RIGHT$HRER":X[178][181](2000[172][187](1))[170]1000
25705 [153]"LEFT$AUPTSTADT KOSTET (null)IE";X"LEFT$ASC.":G(I)[178]G(I)[171]X:[137]20800
30000 [153]"LOAD LEFT$ERZLICHEN CHR$L*CKWUNSCH,"
30005 [153]"(null)IE HABEN RIGHT$HRE ATNMTSZEIT *BERSTANDEN."
30010 X[178]1:Y[178]LB(X):[129]Z[178]1[164]9:[139]LB(Z)[177]Y[167]Y[178]LB(Z):X[178]Z:[130]
30015 [130]
30030 [153]"(null)IEGER IST ";LN$(X)",DESSEN (null)R^SI-"
30040 [153]"DENT NUN DIE GANZE VALCHR$ REGIEREN WIRD."
30050 [153]"STR$IE ANDEREN (null)R^SIDENTEN SIND WEGEN"
30060 [153]"MANGELNDER ASCFREHRUNGSF^HIGKEIT AUSGE-"
30070 [153]"GESCHIEDEN.":[141]20800:[138]
31000 [153]"LOADSYS [ [ ["
31005 [153]" ] ] ]"
31006 [141]31010:[137]31011
31010 [129]A[178]1[164]2:[153]"STOP ":[130]A:[142]
31011 [153]"STOP STOP STOP STOP "
31012 [153]"STOP STOP STOP STOP "
31013 [153]"STOP "
31014 [153]"STOP STOP STOP STOP "
31015 [153]"STOP STOP STOP STOP "
31017 [141]31010
31019 [153]"STOP "
31020 [153]"ONSTOP CONTSTOPWAIT";:[142]
31130 C2[178][194](1200[170]C):A2[178]A2[170]B2[170]C2[170]50
32000 [141]31000:[153]"STR$A SIE ANSCHEINEND NICHT MIT CHR$ELD"
32010 [153]"UMGEHEN K\NNEN UND IN DIE (null)INUSZAHLEN"
32020 [153]"WIRTSCHAFTETEN,WURDEN SIE VON RIGHT$HREM"
32025 [153]"WFRETENDEM (null)OLK ERSCHLAGEN !":[151](1035[170]I),1:[137]20800
32145 [151](1155[170]I),[194](1155[170]I)[171]2:[137]19299
33000 [141]19000:[153]"(null)ANDWIRTSCHAFT":[139]GV(I)[178]0[167]33100
33003 [139]GV(I)[179]SG(I)[167][153][166]9)"(null)(null)CLOSE(null)VAL(null)RIGHT$CHR$CLOSE(null)ATNATN(null)CHR$(null)(null)!!!"
33005 [153]"(null)OSTEN FFRER"
33010 X[178]AC(I)[172]2:Y[178][181](500[172][187](1))[170]99:X[178]X[170]Y:G(I)[178]G(I)[171]X:[153]"- DAS (null)FLFREGEN";
33011 [153]" DER ASCELDER :";X"LEFT$ASC"
33020 X[178]([181](SG(I)[173]2)):Y[178][181](500[172][187](1))[170]99:X[178]X[170]Y
33021 [153]"- DIE ATNUSSAAT :";X"LEFT$ASC"
33025 [139]GV(I)[177]SG(I)[167]W[178]SG(I):GV(I)[178]GV(I)[171]SG(I):[137]33030
33027 W[178]GV(I):GV(I)[178]0
33030 [153]"- VERBRAUCHTES (null)AATGUT :";W"CHR$LEFT$ASC":[137]20800
33100 [153]"STR$A SIE KEIN (null)AATGUT HATTEN,KONNTEN"
33110 [153]"(null)IE LEIDER KEIN CHR$ETREIDE ANPFLANZEN.":W[178]0:[141]20800
35000 SP[178]52585
35001 [141]19000:[153]"(null)ELCHES (null)AND WOLLEN SIE ANGREIFEN ?"
35005 A[178]11:[151]SP,62:B[178]400:JMP[178]1
35006 [153]"":[129]X[178]1[164]10:[153]"";LN$(X):[130]:[153]"(null)ENFRE"
35035 [141]20100:[139]JMP[178]11[167]2499
35036 [139]JM[178]I[167]35001
35037 [151](1159[170]I),1:X[178]O:[129]Y[178]ZZ[170]1[164]10:X[178]X[170][194](1699[170]Y):[130]
35038 [139]JM[179]ZZ[170]1[175]X[178]10[171]ZZ[175][194](1699[170]JM)[178]0[167]35050
35039 [139]JM[177]ZZ[175][194](1699[170]JMP)[178]0[167]35050
35040 [137]35000
35050 Y[178]JMP:[137]19677
36000 U[178][194](1299[170]I)[172]1:V[178][194](1309[170]I)[172]2:W[178][194](1319[170]I)[172]1:U[178]U[170]V[170]W
36005 [139][194](1399[170]I)[170]U[177]255[167][151](1399[170]I),255:[137]36010
36006 [151](1399[170]I),U
36010 U[178][194](1299[170]Y)[172]1:V[178][194](1309[170]Y)[172]2:W[178][194](1319[170]Y)[172]1:U[178]U[170]V[170]W
36015 [139][194](1399[170]Y)[170]U[177]255[167][151](1399[170]Y),255:[142]
36016 [151](1399[170]Y),U:[142]
37000 [141]19000:[153]"*BER WELCHES (null)AND WOLLEN SIE":[153]"RIGHT$NFORMATIONEN ?"
37001 [129]X[178]1[164]10:[139]LB(X)[179]0[167]LB(X)[178]512:[130]
37002 [130]
37030 SP[178]52665:A[178]11:[151]SP,62:B[178]400:JMP[178]1
37040 [153]"":[129]X[178]1[164]10:[153]"";LN$(X):[130]
37041 [153]"(null)ENFRE":[141]20100:[139]JMP[178]11[167][142]
37052 [139][194](1699[170]JM)[178]1[167][153]"VALXISTIERT NICHT MEHR!":[141]20800:[137]37000
37060 X[178]JMP:[141]19000:[153]"RIGHT$NFORMATIONEN FREBER ";LN$(X)
37080 [153]"(null)ANZER :";[194](1299[170]X)
37085 [153]"ASCLUGZEUGE :";[194](1309[170]X)
37090 [153]"(null)RUPPEN :";[194](1319[170]X)
37092 [153]"(null)ASERNEN :";[194](1380[170]X)
37100 [153]"ATNUSBILDUNG :";[194](1399[170]X)"%"
37110 [153]"(null)ANDESGR\SSE:";LB(X)"(null)LEFT$ASC":[141]20800:[137]37000
38000 [139]JA[179]2013[167][142]
38010 [129]PP[178](ZZ[170]1)[164]10:[139]PP[177]10[167][142]
38020 Y[178][181](10[172][187](1))[170]1
38021 [139]Y[179]10[173]([194](1710)[170]1)[167][130]PP:[137]38080
38035 [139][194](1699[170]PP)[178]0[167]38038
38036 [139]PP[179]10[167][130]PP
38037 [142]
38038 S[178]0
38040 Y[178][181](10[172][187](1))[170]1:S[178]S[170]0.2:F[178][194](1309[170]Y)[170][194](1299[170]Y)[170][194](1319[170]Y)
38041 E[178][194](1299[170]PP)[170][194](1309[170]PP)[170][194](1319[170]PP):[139]E[170]([194](1710[172]5))[179]F[175]PP[179]10[167][130]:[142]
38044 [139]S[178]5[175]PP[179]10[167][130]PP
38045 [139]S[177]5[175]PP[178]10[167]38080
38050 [139]Y[178]PP[167]38040
38051 [139]PP[179]5[175]Y[179]5[167]38040
38055 [139][194](1299[170]Y)[170][194](1309[170]Y)[170][194](1319[170]Y)[177]0[167]38059
38056 [137]38040
38059 [153]"LOADVALS K^MPFT: ";LN$(PP)" GEGEN ";LN$(Y):[151]1800,I:I[178]PP:RR[178]1:[141]19676
38070 [139]PP[179]10[167][130]PP
38080 I[178][194](1800):[142]
40000 [153]"VALNDE DES (null)RIEGES !":[141]20800
40002 [153]"LOAD";LN$(A)" HAT LEIDER KEINE (null)RUPPEN"
40010 [153]"MEHR UND MUSS SICH ERGEBEN.STR$IE":X[178]LB(A)[173]4:X[178][181](X[173]4)[170]1959
40011 [139]X[177]LB(A)[167]X[178]LB(A)
40015 LB(B)[178]LB(B)[170]X:GL(B)[178]GL(B)[170]X:[151](1699[170]A),1
40020 [153]"LEFT$AUPTSTADT WURDE ZERST\RT"
40021 [153]"UND ";LN$(B)
40022 [153]"BEKAM";X"(null)LEFT$ASC (null)AND.":[141]47000
40030 [151](1699[170]A),1:[139]BB[178]1[167]BB[178]0:[141]20800:[137]2498
40031 [137]20800
41000 [153]"LOADPEEKITTE WARTEN !"
41003 [129]X[178](ZZ[170]1)[164]10:[139][194](1699[170]X)[178]1[167][130]X
41006 A[178][194](1299[170]X):B[178][194](1309[170]X):C[178][194](1319[170]X)
41022 Y[178]5[172][187](1)[170]4:A[178]A[170]Y:[139][194](1299[170]X)[170]A[179]255[167][151](1299[170]X),A:[137]41027
41024 [151](1299[170]X),255
41027 Y[178]5[172][187](1)[170]3:B[178]B[170]Y:[139][194](1309[170]X)[170]B[179]255[167][151](1309[170]X),B:[137]41032
41029 [151](1309[170]X),255
41032 Y[178]9[172][187](1)[170]6:C[178]C[170]Y:[139][194](1319[170]X)[170]C[179]255[167][151](1319[170]X),C:[137]41040
41033 [151](1319[170]X),255
41040 U[178][194](1299[170]X)[172]1.5:V[178][194](1309[170]X)[172]2:W[178][194](1319[170]X)[172]1:U[178]U[170]V[170]W
41050 [139][194](1399[170]X)[170]U[177]100[167][151](1399[170]X),100:[137]41060
41051 [151](1399[170]X),U
41060 [141]50200
41061 [141]51000
41070 [139]X[179]10[167][130]X:[142]
41075 [142]
42000 [139][194](1163[170]I)[178]1[167][141]20060:[137]19299
42001 [139][194](1091[170]I)[177]0[167][137]42005
42002 [153]"VALRST (null)ONDERKOMMANDO KAUFENWAIT":[141]20800:[137]19299
42005 [141]19000:[153][166]14)"(null)ATNPEEK(null)(null)ATNCHR$VAL"
42007 SP[178]52705:A[178]11:[151]SP,62:JMP[178]1:B[178]400
42008 [153]"RIGHT$N WELCHEM (null)AND WOLLEN SIE EINE ":[153]"(null)ASERNE SABOTIEREN ?"
42010 [153]"":[129]X[178]1[164]10:[153]"";LN$(X):[130]X:[153]"(null)ENFRE":[141]20100
42011 [139]JMP[178]11[167]19299
42015 [139][194](1379[170]JMP)[178]0[167]42005
42016 [139][194](1699[170]JMP)[178]1[167]42005
42020 [141]19000:Y[178][194](1087[170]I)[170][194](1155[170]I):X[178]Y[170][194](1399[170]JM)
42021 [151](1163[170]I),1:[139]X[178]Y[167]Y[178]Y[171]1
42040 W[178]X[170]Y:Z[178][181](W[172][187](1))[170]1:[139]Z[179]X[176]Z[178]X[167]42100
42055 [153]"STR$ER ATNNSCHLAG IST GELUNGEN.STR$IE"
42060 [153]"(null)ASERNE UND DIE DAZUGEH\RIGEN"
42065 [153]"(null)AFFEN SIND ZERST\RT.STR$IE (null)OSTEN FFRER"
42070 X[178][181](4200[172][187](1))[170]3000:[153]"DIESEN ATNNSCHLAG BETRAGEN";X"LEFT$ASC."
42080 G(I)[178]G(I)[171]X:[141]20800:[137]42200
42100 [153]"STR$ER ATNNSCHLAG IST MISSLUNGEN.RIGHT$HR"
42110 [153]"(null)ONDERKOMMANDO WURDE ERSCHOSSEN.STR$IE"
42120 [153]"(null)OSTEN FFRER DIE VERLOREN GEGANGENE"
42130 X[178][181](4200[172][187](1))[170]1500:[153]"ATNUSRFRESTUNG BETR^GT";X"LEFT$ASC.":G(I)[178]G(I)[171]X
42140 [151](1091[170]I),[194](1091[170]I)[171]1
42143 [139][194](1155[170]I)[171]2[179]1[167][151](1155[170]I),0:[137]42150
42145 [151](1155[170]I),[194](1155[170]I)[171]2
42150 [141]20800:[137]19299
42200 [129]X[178]1[164]3:[139][194](1299[170]JMP)[171]3[179]0[167][151](1299[170]JMP),0:[137]42230
42220 [151](1299[170]JMP),[194](1299[170]JMP)[171]3
42230 JMP[178]JMP[170]10:[130]:Y[178]JMP:[141]36000:[137]19299
42500 [153]"(null)IEVIEL (null)TFRECK ";:[133]X
42501 [139]GL(I)[171]X[172]30[179]0[176][194](1379[170]I)[170]X[177]255[176]X[178]0[167][142]
42502 G(I)[178]G(I)[171]X[172]500:[151](1379[170]I),[194](1379[170]I)[170]X:A(I)[178]A(I)[170]X[172]30:EB(I)[178]EB(I)[170]X[172]50
42503 GL(I)[178]GL(I)[171]X[172]30:BL(I)[178]BL(I)[170]X[172]30:[137]20050
43000 [139][194](1379[170]I)[178]0[167][142]
43002 X[178][181](10[172][187](1))[170]1:[139]X[179](ZZ[170]1)[167]43002
43003 [139][194](1699[170]X)[178]1[167][142]
43005 Q[178][194](1399[170]X)[170][194](1151[170]I):Y[178][181](Q[172][187](1))[170]1
43006 [141]19000:[153]"";LN$(X)" VERFREBTE AUF EINE RIGHT$HRER"
43007 [153]"(null)ASERNEN EINEN ATNNSCHLAG.":[139]Y[177][194](1399[170]X)[167]43050
43020 [153]"STR$ER ATNNSCHLAG GELANG UND SIE VERLOREN":[153]"EINE (null)ASERNE."
43035 X[178]1299:[129]Y[178]1[164]3:[139][194](X[170]I)[171]3[179]0[167][151](X[170]I),0:X[178]X[170]10:[130]:[137]43048
43041 [151](X[170]I),[194](X[170]I)[171]3:X[178]X[170]10:[130]
43048 [151](1379[170]I),[194](1379[170]I)[171]1:BL(I)[178]BL(I)[171]30:GL(I)[178]GL(I)[170]30:EB(I)[178]EB(I)[171]50
43049 A(I)[178]A(I)[171]30:[137]20800
43050 [153]"STR$ER ATNNSCHLAG MISSLANG JEDOCH.":[137]20800
44000 X[178][181](EW(I)[173]80):Y[178][181](100[172][187](1))[170]1:X[178](X[170]Y)[170](100[171][194](1043[170]I))
44005 EW(I)[178]EW(I)[171]X:[141]19000:[153]"STR$IESES MID$AHR STARBEN";X"(null)ENSCHEN UND"
44010 X[178][181](4[172][187](1))[170]7:Y[178][181](400[172][187](I)):X[178](X[172][194](1039[170]I))[170]Y:EW(I)[178]EW(I)[170]X
44015 [153]"ES WURDEN";X"(null)INDER GEBOREN.":GB(I)[178][181](EW(I)[173]2):[142]
45000 [153]"(null)OLLEN SIE DIESES MID$AHR (null)ANDWIRTSCHAFT"
45005 [153]"BETREIBEN (L) ODER VON RIGHT$HREN":[153]"(null)ORR^TEN LEBEN (V) ?"
45007 [161]A$:[139]A$[178]""[167]45007
45008 [139]A$[178]"L"[167]21751
45009 [139]A$[178]"V"[167]XX[178]512:[137]21843
45010 [137]45007
46000 [139]PI(I)[179]LH(I)[176]PI(I)[178]LH(I)[167]X[178]PI(I):[142]
46001 X[178]LH(I):Z[178]1:[142]
46002 [153]"STR$A SIE ZU WENIG (null)AGERPLATZ":X[178]PI(I)[171]LH(I):Z[178]0
46005 [153]"FFRER IHRE RIGHT$LEFT$ASC HATTEN,VERROTTETEN":[153]"";X"RIGHT$LEFT$ASC.":[142]
47000 [153]"STR$URCH (null)LFRENDERUNGEN BEKAM ";LN$(B):X[178][181](9000[172][187](1))[170]4000
47005 [153]"";X"LEFT$ASC.":G(B)[178]G(B)[170]X:[139]A[179](ZZ[170]1)[167]G(I)[178]G(I)[171]X
47006 [142]
47500 X[178][181]([194](1399[170]I)[173]3):[151](1399[170]I),[194](1399[170]I)[171]X:Y[178][181](999[172][187](1))
47502 X[178]((100[171][194](1399[170]I))[172]127)[170]Y:[129]Y[178]1[164]3:X[178]X[170][194](1289[170](Y[172]10[170]I))[172]44:[130]
47510 [141]19000:[153]"STR$AS (null)ILIT^R VERLANGT";X"LEFT$ASC,UM"
47515 [153]"IHR (null)ILIT^R GUT AUSBILDEN ZU K\NNEN.":[141]20500
47520 W[178][181](B[173]127):[139][194](1399[170]I)[170]W[177]100[167][151](1399[170]I),100:[137]48000
47530 [151](1399[170]I),[194](1399[170]I)[170]W
48000 X[178][181]([194](1155[170]I)[173]3):[151](1155[170]I),[194](1155[170]I)[171]X:Y[178][181](999[172][187](1))
48002 X[178]((100[171][194](1155[170]I))[172]96)[170]Y
48004 [141]19000:[153]"STR$ER (null)OLIZEIPR^SIDENT VERLANGT"
48005 [153]"";X"LEFT$ASC VON RIGHT$HNEN,UM VERALTETE ATNUS-"
48007 [153]"RFRESTUNG ZU MODERNISIEREN UND NEUE"
48009 [153]"KAUFEN ZU K\NNEN.":[141]20500
48012 W[178][181](B[173]96):[139][194](1155[170]I)[170]W[177]100[167][151](1155[170]I),100:[137]48500
48015 [151](1155[170]I),[194](1155[170]I)[170]W
48500 X[178][181]([194](1087[170]I)[173]4):[151](1087[170]I),[194](1087[170]I)[171]X:Y[178][181](999[172][187](1))
48503 X[178]((100[171][194](1087[170]I))[172]122)[170](Y[170](PO(I)[172]2)[170][194](1091[170]I)[172]300)
48506 [141]19000:[153]"VALS WERDEN";X"LEFT$ASC BEN\TIGT,UM DIE"
48509 [153]"(null)OLIZEI AUSZUBILDEN.":[141]20500
48512 W[178][181](B[173]122):[139][194](1087[170]I)[170]B[177]100[167][151](1087[170]I),100:[137]22600
48515 [151](1087[170]I),[194](1087[170]I)[170]B:[137]22600
49000 [139]JM[178]2[176]JM[178]4[176]JM[178]6[167]20291
49001 [153]"LOADRIGHT$HR (null)OLK L^SST AUS ATNNGST VOR EINER"
49005 [153]"(null)OURISTENSCHWEMME DEN PEEKAU WEITERER"
49010 [153]"(null)OURISTENANLAGEN NICHT ZU !":[137]20800
49500 [141]19000:[153]"STR$A SIE ZU WENIG (null)FREHLEN HATTEN,":YY[178]1
49502 [153]"KONNTE NICHT GENFREGEND (null)ORN FFRER RIGHT$HR"
49504 [153]"(null)OLK GEMAHLEN WERDEN.VALS VERHUNGERTEN":X[178]GB(I)[171]GK(I):EW(I)[178]EW(I)[171]X
49506 [153]"INSGESAMT";X"(null)ENSCHEN.STR$AS (null)OLK IST":[153]"SEHR VER^RGERT."
49508 X[178]X[173]20:[139][194](1039[170]I)[171]X[179]1[167][151](1039[170]I),0:[137]20800
49512 [151](1039[170]I),[194](1039[170]I)[171]X:[137]20800
50000 [153]"LOAD(null)IT WIEVIEL CHR$ELD WOLLEN (null)IE"
50001 A[178]0:[153]"STARTEN (MAXIMAL 50000 LEFT$ASC)";[166]54);:[133]A
50002 [139]A[179][178]0[176]A[177]50000[167]50000
50003 [129]X[178]1[164]ZZ:G(X)[178]A:[130]:[142]
50100 X[178]0:[153]"LOAD(null)ELCHE (null)CHWIERIGKEITSSTUFE M\CHTEN"
50101 [153]"(null)IE SPIELEN (1-5)";[166]63);:[133]X:[139]X[179]1[176]X[177]5[167]50100
50102 [151]1710,X:[137]60000
50200 Y[178][194](1710)
50202 [139][194](1299[170]X)[170]Y[177]250[167][151](1299[170]X),250:[137]50204
50203 [151](1299[170]X),[194](1299[170]X)[170]Y
50204 [139][194](1319[170]X)[170]Y[177]250[167][151](1319[170]X),250:[137]50206
50205 [151](1319[170]X),[194](1319[170]X)[170]Y
50206 [139][194](1309[170]X)[170]Y[177]250[167][151](1309[170]X),250:[137]50208
50207 [151](1309[170]X),[194](1309[170]X)[170]Y
50208 [142]
50500 [141]19000:[153]"(null)OLEN (null)IE WIRKLICH ZUR ATNUSWERTUNG ?"
50502 [153]"(null)ENN JA,DANN BITTE 'SPACE' DRFRECKEN,AN-":[153]"SONSTEN BITTE 'X'"
50504 [161]A$:[139]A$[178]""[167]50504
50506 [139]A$[178]"X"[167]500
50507 [142]
50700 A[178]0:[153]"(null)IEVIEL (null)OLIZISTEN ENTLASSEN ";:[133]A
50701 [139]A[177]PO(I)[176]A[179]0[167][153]"ONONON":[137]50700
50702 A[178]([181](A)):PO(I)[178]PO(I)[171]A:A(I)[178]A(I)[171]A[172]10:[142]
50760 [153]"STR$AS (null)OLK IST SEHR VER^RGERT FREBER":[142]
51000 [151](1379[170]X),[194](1379[170]X)[170]5:[139][194](1379[170]X)[177]85[167][151](1379[170]X),85
51001 [142]
51300 [153]"PEEKIETET NICHTS AN !";:[141]20800
51301 [153]"CMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD ONONONONON":[142]
52000 X[178][181](50[172][187](1))[170]34:[142]
60000 [153]"LOAD(null)IEVIEL MID$AHRE WOLLEN (null)IE SPIE-":[153]"LEN (MAX. 30) ";:[133]X
60001 [139]X[179]5[176]X[177]30[167]60000
60002 [151]1711,X:[142]